home *** CD-ROM | disk | FTP | other *** search
/ Shareware Super Platinum 8 / Shareware Super Platinum 8.iso / mac / PROGTOOL / FGL304D.ZIP;1 / EXBAS.ARJ / FGDOC / EXAMPLES / BASIC / 08-11.BAS < prev    next >
Encoding:
BASIC Source File  |  1994-01-24  |  501 b   |  36 lines
  1. REM $INCLUDE: 'fastgraf.bi'
  2.  
  3. DEFINT A-Z
  4.  
  5. SetMemStatus& = SETMEM(-(153600+16))
  6.  
  7. OldMode = FGgetmode
  8. FGsetmode 18
  9.  
  10. Status = FGalloccms(2)
  11. FGgetentry 2, PageAddr, PageType
  12.  
  13. FGsetcolor 9
  14. FGfillpage
  15. FGsetcolor 15
  16. FGbox 0, 639, 0, 479
  17. FGwaitkey
  18.  
  19. FGcopypage 0, 2
  20. FGsetmode OldMode
  21. FGcursor 0
  22. FGsetcolor 15
  23. FGtext "Press any key.", 14
  24. FGwaitkey
  25.  
  26. FGsetmode 18
  27. FGsetentry 2, PageAddr, PageType
  28. FGcopypage 2, 0
  29. FGwaitkey
  30.  
  31. Status = FGfreepage(2)
  32. FGsetmode OldMode
  33. FGreset
  34.  
  35. END
  36.